home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aad.d64 / basic photo menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  75 lines
  1. 1 REM (null)(null)
  2. 3 POKE 775,191
  3. 5 REM (null)(null)
  4. 7 POKE 775,191
  5. 10 PRINT"[147]"CHR$(8):PRINTCHR$(142)
  6. 12 POKE53280,0:POKE53281,7:PRINTCHR$(144):POKE2023,233:POKE56295,0
  7. 13 PRINT"[169]                                      [223]":POKE1984,223:POKE56256,0
  8. 14 PRINT"[169]     [223][146]         [169]     [223]"
  9. 16 PRINT" [146]                "
  10. 18 PRINT" [146]                "
  11. 20 PRINT" [146]               [223]     [223]"
  12. 22 PRINT" [146]                      "
  13. 24 PRINT" [146]                      "
  14. 26 PRINT"[223]     [146][169]         [223]     [146][169]"
  15. 30 PRINT"[169]                   [223]"
  16. 32 PRINT"    CHRISTEPH        "
  17. 34 PRINT"                     "
  18. 36 PRINT"         SOFTWARE    "
  19. 38 PRINT"[223]                   [146][169]"
  20. 40 PRINT"               PRESENTS"
  21. 41 PRINT"           BASIC PHOTOGRAPHY"
  22. 42 PRINT"           BY STEVE WILLIAMS"
  23. 43 PRINT"       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  24. 44 PRINT"       PRESS ANY KEY TO CONTINUE"
  25. 46 POKE198,0
  26. 48 GETA$:IFA$=""THEN48
  27. 50 PRINT"[147]":POKE 53280,6:POKE53281,13
  28. 52 PRINT"           BASIC PHOTOGRAPHY"
  29. 54 PRINT"           BY STEVE WILLIAMS"
  30. 56 PRINT" THIS PRODUCT IS FREEWARE/PUBLIC DOMAIN."
  31. 58 PRINT" IN ORDER TO SUPPORT THE WRITING OF MORE"
  32. 60 PRINT"[145] EDUCATIONAL MATERIALS SUCH AS THIS,"
  33. 62 PRINT" PLEASE SUPPORT THE FREEWARE CONCEPT."
  34. 64 PRINT:PRINT" IF YOU KEEP AND USE THIS PROGRAM, YOU"
  35. 66 PRINT" ARE REQUESTED TO SEND $2.00 TO THE"
  36. 68 PRINT" AUTHOR. THERE IS NO OBLIGATION EXCEPT"
  37. 70 PRINT" THAT OFF YOUR GOOD WILL. THIS IS A LOT"
  38. 71 PRINT" PROGRAMMING FOR A MERE $2.00."
  39. 72 PRINT:PRINT"            STEVE WILLIAMS"
  40. 74 PRINT"            102 N. ANDREWS"
  41. 76 PRINT"            WACO, TEXAS 76706"
  42. 77 PRINT"         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  43. 78 PRINT"         PRESS ANY KEY FOR MENU"
  44. 90 GETA$:IFA$=""THEN90
  45. 110 PRINT"[147]":POKE53281,8:POKE53280,11
  46. 112 PRINT"        [144] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  47. 114 PRINT"         BASIC PHOTOGRAPHY MENU"
  48. 116 PRINT"  1 - ZONE 1  (APERTURE)"
  49. 118 PRINT"  2 - ZONE 2  (SHUTTER SPEEDS)"
  50. 120 PRINT"  3 - ZONE 3  (EXPOSURE)"
  51. 122 PRINT"  4 - ZONE 4  (DEPTH OF FIELD)"
  52. 124 PRINT"  5 - ZONE 5  (FLASH CALCULATIONS)"
  53. 126 PRINT"  6 - PHOTOGRAPHY DEMONSTRATION"
  54. 127 PRINT"         (A COLORFUL PROGRAM OF CAMERAS"
  55. 128 PRINT"         AND PICTURES THAT CAN BE"
  56. 129 PRINT"         PERSONALIZED BY YOU AS AN"
  57. 130 PRINT"         ATTENTION GETTER FOR A PHOTO"
  58. 131 PRINT"         SHOW BY A SCHOOL OR CLUB.)"
  59. 133 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  60. 135 PRINT"  PRESS NUMBER TO LOAD DESIRED PROGRAM "
  61. 139 POKE198,0
  62. 140 GETA$:IFA$=""THEN140
  63. 150 ONVAL(A$)GOTO161,162,163,164,165,166
  64. 152 GOTO140
  65. 161 L$="ZONE 1":GOTO180
  66. 162 L$="ZONE 2":GOTO180
  67. 163 L$="ZONE 3":GOTO180
  68. 164 L$="ZONE 4":GOTO180
  69. 165 L$="ZONE 5":GOTO180
  70. 166 L$="PHOTO DEMO":GOTO180
  71. 180 POKE198,4
  72. 182 PRINT"[147]LOAD"CHR$(34)L$;:PRINTCHR$(34)",8";
  73. 184 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  74. 190 END
  75.